home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 May / EnigmA AMIGA RUN 18 (1997)(G.R. Edizioni)(IT)[!][issue 1997-05][EAR-CD II].iso / earcd / comm / tcp / netbar.lha / NetBar_6.0 / Rt.g < prev   
Text File  |  1997-02-14  |  2KB  |  79 lines
  1. G4C  - Routines.g - general purpose routines by D.Keletsekis (c)
  2. ;and butchered by Kevin Anderson    andersok@mail.bogo.co.uk
  3.  
  4. xRoutine ViewFile
  5. if $rtn_var < '  '            ; no variable..
  6.    return
  7. endif
  8.  
  9. DoCase $rtn_var
  10. Case   H= 'FORM????ILBM'        ; ILBM file
  11. Case   H= 'FORM????ANIM'        ; Animation file
  12. Case   H= 'GIF'                ; GIF file
  13. Case   H= '??????JFIF'            ; JPEG file
  14.        RUN 'c:ppshow $rtn_var'
  15.        return
  16.        break
  17. Case   H= 'FORM????8SVX'        ; Sound sample
  18. Case   H= 'RIFF????'                    ; Wav file
  19.        RUN 'c:play16 $rtn_var'
  20.        return
  21.        break
  22. Case   H= 'PP'                ; PowerPacked file
  23.        RUN 'c:ppmore $rtn_var'
  24.        return
  25.        break
  26. Case   H= ?ime                          ; Base64 MIME file
  27.        CLI 'Base64Decode $rtn_var autoname $.A.NetBar'
  28.        return
  29.        break
  30. Case   H= ?egin????                     ; UUencoded file ?
  31.        CD $.A.NetBar
  32.        CLI 'c:uuhx x $rtn_var' 
  33.        return
  34.        break
  35. Case   H= ??-lh                ; LhA file
  36.        CLI 'c:Lha x $rtn_var $.A.NetBar'
  37.        return
  38.        break
  39. Case   H= lzx                           ; lzx file
  40.        CLI 'c:lzx x $rtn_var $.A.NetBar'
  41.        return
  42.        break
  43. Case   H= `                             ; Arj file (I hope)
  44.        cd $.A.NetBar
  45.        CLI 'unarj e $rtn_var'
  46.        return
  47.        break
  48. Case   H= PK                ; Zip file
  49.        CLI 'c:unzip $rtn_var -d $.A.NetBar'
  50.        return
  51.        break
  52. Case   H= '@'                 ; Amigaguide (probably)
  53.        RUN 'c:amigaguide $rtn_var'
  54.        return
  55.        break
  56. Case   H= '%%%'                ; A program/executable ? Tell user
  57.        GoSub Rt.g ProgQuery
  58.        return
  59.        break
  60.  
  61. EndCase
  62.  
  63. Gosub Rt.g ProgQuery
  64.  
  65. ;************** Program file type Query routine ***************
  66.  
  67. xRoutine ProgQuery
  68.  
  69.        EzReq 'Sorry but I cannot resolve the\nFileType what shall I do ?' Quit|Select NoWay
  70.        If $NoWay = 0
  71.          SetVar     SfileVar $rtn_var
  72.          GuiLoad    :NetView        ; no problem if already loaded
  73.        Else
  74.          ;Get the hell out of here
  75.        EndIf
  76. Return
  77.  
  78. delvar rtn_var
  79.